*********************************************************************************
* Figure 3																		*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W22

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Figure 3

	use "DATA_Figure3.dta", clear


	graph dot spend_w22d spend_w17d, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Increase military spending", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(47, lcolor(eltblue))  ///
		yline(21, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure1, replace)

	graph dot conrus_w22d conrus_w16d, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Confrontational RUS policy", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(35, lcolor(eltblue))  ///
		yline(19, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure2, replace)

	graph dot viewrus_w22d viewrus_w21d, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Favorable views on Russia", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(08, lcolor(eltblue))  ///
		yline(15, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure3, replace)

	graph dot viewus_w22d viewus_w21d, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Favorable views on U.S.", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(49, lcolor(eltblue))  ///
		yline(48, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure4, replace)
